From 63f4f3cf46e8358d97ff675ce757d576cddf164c Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Tue, 6 Jul 2004 01:36:29 +0000 Subject: [PATCH] (Fdefmacro): Signal an error if NAME is not a symbol. --- src/eval.c | 1 + 1 file changed, 1 insertion(+) diff --git a/src/eval.c b/src/eval.c index 096755f9c77..d7cfe959158 100644 --- a/src/eval.c +++ b/src/eval.c @@ -657,6 +657,7 @@ usage: (defmacro NAME ARGLIST [DOCSTRING] [DECL] BODY...) */) Lisp_Object lambda_list, doc, tail; fn_name = Fcar (args); + CHECK_SYMBOL (fn_name); lambda_list = Fcar (Fcdr (args)); tail = Fcdr (Fcdr (args)); -- 2.30.2